home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW20.ADA < prev    next >
Text File  |  1994-01-11  |  284b  |  41 lines
  1.  
  2. WITH Spider; USE Spider;
  3. PROCEDURE Drawing20 IS 
  4. BEGIN 
  5. Start;
  6. Black;
  7. Step;
  8. Step;
  9. Step;
  10. Step;
  11. Turn;
  12. Turn;
  13. Turn;
  14. Blue;
  15. Step;
  16. Step;
  17. Step;
  18. Step;
  19. Step;
  20. Step;
  21. Step;
  22. Turn;
  23. Black;
  24. Step;
  25. Step;
  26. Step;
  27. Step;
  28. Step;
  29. Turn;
  30. Step;
  31. Step;
  32. Step;
  33. Step;
  34. Red;
  35. Turn;
  36. Step;
  37. Step;
  38. Step;
  39. Step;
  40. END Drawing20;
  41.